home *** CD-ROM | disk | FTP | other *** search
/ Megahits 6 / Megahits 6 (1995)(GTI - Rhein-Main-Soft)(DE)(Disc 2 of 2)[!].iso / time_ungepackt / time_361_390 / time_367 / masken.lzh / PicBase / PictureBasePBM < prev    next >
Text File  |  1994-10-29  |  977b  |  25 lines
  1. Assign > NIL: JPEGTMP: EXISTS
  2. IF WARN
  3.   Assign JPEGTMP: T:
  4. ENDIF
  5.  
  6. SYS:Rexxc/Rx 'ADDRESS DataBase DBTOFRONT'
  7. C:Requestfile > ENV:picpath DRAWERSONLY TITLE="Quellpfad der Bilder" NOICONS PUBSCREEN DataBase
  8. IF $picpath gt ""
  9.   CD > ENV:DBpath
  10.   C:Requestfile > ENV:thumb DRAWER $DBpath/PicBase DRAWERSONLY TITLE="Pfad für Vorschaubilder" NOICONS PUBSCREEN DataBase
  11.   IF $thumb gt ""
  12.     Echo > ENV:thumbpath $thumb
  13.     Echo > ENV:source $picpath
  14.     Assign PBMBIN: PicBase/bin
  15.     SYS:Rexxc/Rx 'ADDRESS DataBase Message "Erzeuge Verzeichnisstruktur für Vorschaubilder ..."'
  16.     List > T:script $picpath dirs all lformat="SYS:Rexxc/rx $DBpath/PicBase/MakeDirs.rexx $source %p%n $thumbpath"
  17.     Execute T:script
  18.     SYS:Rexxc/Rx 'ADDRESS DataBase Message "Scanne Quellpath der Bilder ..."'
  19.     List > T:script $picpath files all lformat="SYS:Rexxc/rx $DBpath/PicBase/PicbasePBM.rexx $thumbpath $source %p%n %l $DBpath"
  20.     Execute T:script
  21.     Delete > NIL: T:script
  22.   ENDIF
  23. ENDIF
  24.  
  25.